Naeliton - Departamento de Ciencias Contabeis UFPE (Amostra de Análise Descritiva)

Introdução

Esta uma amostra de análise de dados descritiva feita sob a indicação de necessidade do discente Naeliton Souza Pinho do Dep de Ciencias Contabeis da UFPE.

Carregamento das bases de dados

Base de Dados das Procuradorias

O instrumento de coleta de dados foi a base de dados da Procuradoria-Geral da Fazenda Nacional referente ao ano de 2024 de cada estado brasileiro que foram juntados em uma base de dados comum, onde através de manipulação da base de dados a classificação das regiões de atuação do orgão foi feita conforme indicado no site https://www.gov.br/pgfn/pt-br/acesso-a-informacao/institucional/abrangencia-territorial-das-unidades-da-pgfn

Análises Geral (Todos os Tipos de Negociação)

Nessa seção serão feitas as análises descritivas simples (média, mediana e desvio padrão) para o discente começar o trabalho de análise mais aprofundada e fundamentada na literatura do TCC.

Análise Geral Feita por Região (Todos os Tipos de Negociação)

Análise feita por região tem por objetivo dar uma visão da distribuição dos dados tal como o orgão é organizado.

Brasil

# Calcular estatísticas adicionais
tabela_moda <- dados %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") %>%
  rename(Valor = V1)



# Criar tabela descritiva
tabela_descritiva <- dados %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") %>%
  as_gt() %>% # Converter para gt para adicionar a tabela extra
  gt::tab_spanner(label = "Estatísticas Descritivas", columns = gt::everything()) %>%
  gt::tab_source_note(gt::md(paste0(
    "**Moda das Parcelas Concedidadas:** ", tabela_moda$Valor[tabela_moda$Estatística == "Moda"]
  )))

# Exibir tabela
tabela_descritiva
Estatísticas Descritivas
Characteristic N = 2,284,0961
Qtde de Parcelas Concedidas 32 (Média), 18 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 58,565 (Média), 4,108 (Mediana), 626,854 (Desvio Padrão)
Valor Principal 8,654 (Média), 1,200 (Mediana), 376,408 (Desvio Padrão)
Valor da Multa 694 (Média), 0 (Mediana), 15,033 (Desvio Padrão)
Moda das Parcelas Concedidadas: 60
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Media do Valor Consolidado

grafico_mapa_calor_interativo_media

Região 1

dados_r1 <- dados |> filter(`Região` == "1° Região")

# Calcular estatísticas adicionais
tabela_moda <- dados_r1 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") %>%
  rename(Valor = V1)



# Criar tabela descritiva
tabela_descritiva <- dados_r1 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 
# Exibir tabela
tabela_descritiva
Characteristic N = 537,3541
Qtde de Parcelas Concedidas 32 (Média), 18 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 56,611 (Média), 4,101 (Mediana), 586,762 (Desvio Padrão)
Valor Principal 6,234 (Média), 1,200 (Mediana), 153,450 (Desvio Padrão)
Valor da Multa 627 (Média), 0 (Mediana), 12,582 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 2

dados_r2 <- dados |> filter(`Região` == "2° Região")

# Calcular estatísticas adicionais
tabela_moda <- dados_r2 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") %>%
  rename(Valor = V1)



# Criar tabela descritiva
tabela_descritiva <- dados_r2 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 
# Exibir tabela
tabela_descritiva
Characteristic N = 239,2501
Qtde de Parcelas Concedidas 32 (Média), 18 (Mediana), 32 (Desvio Padrão)
Valor Consolidado 48,801 (Média), 3,963 (Mediana), 410,298 (Desvio Padrão)
Valor Principal 6,570 (Média), 1,200 (Mediana), 109,046 (Desvio Padrão)
Valor da Multa 607 (Média), 0 (Mediana), 12,677 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 3

dados_r3 <- dados |> filter(`Região` == "3° Região")

# Calcular estatísticas adicionais
tabela_moda <- dados_r3 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") %>%
  rename(Valor = V1)



# Criar tabela descritiva
tabela_descritiva <- dados_r3 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 612,8791
Qtde de Parcelas Concedidas 32 (Média), 18 (Mediana), 34 (Desvio Padrão)
Valor Consolidado 75,730 (Média), 4,120 (Mediana), 801,414 (Desvio Padrão)
Valor Principal 12,688 (Média), 1,200 (Mediana), 654,532 (Desvio Padrão)
Valor da Multa 838 (Média), 0 (Mediana), 18,705 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 4

dados_r4 <- dados |> filter(`Região` == "4° Região")


# Criar tabela descritiva
tabela_descritiva <- dados_r4 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 396,1071
Qtde de Parcelas Concedidas 34 (Média), 20 (Mediana), 35 (Desvio Padrão)
Valor Consolidado 58,589 (Média), 4,378 (Mediana), 704,011 (Desvio Padrão)
Valor Principal 10,182 (Média), 1,156 (Mediana), 300,461 (Desvio Padrão)
Valor da Multa 623 (Média), 0 (Mediana), 11,383 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 5

dados_r5 <- dados |> filter(`Região` == "5° Região")



# Criar tabela descritiva
tabela_descritiva <- dados_r5 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 265,2321
Qtde de Parcelas Concedidas 33 (Média), 19 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 43,749 (Média), 4,098 (Mediana), 433,343 (Desvio Padrão)
Valor Principal 6,640 (Média), 1,156 (Mediana), 151,236 (Desvio Padrão)
Valor da Multa 564 (Média), 0 (Mediana), 16,296 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 6

dados_r6 <- dados |> filter(`Região` == "6° Região")


# Criar tabela descritiva
tabela_descritiva <- dados_r6 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 233,2741
Qtde de Parcelas Concedidas 31 (Média), 17 (Mediana), 32 (Desvio Padrão)
Valor Consolidado 45,154 (Média), 3,872 (Mediana), 365,764 (Desvio Padrão)
Valor Principal 5,752 (Média), 1,156 (Mediana), 115,764 (Desvio Padrão)
Valor da Multa 945 (Média), 0 (Mediana), 17,276 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Análise Feita por Mês

Análise feita por Mês

12/2024

dados_m_12 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "12/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_12 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 191,0501
Qtde de Parcelas Concedidas 29 (Média), 16 (Mediana), 31 (Desvio Padrão)
Valor Consolidado 69,207 (Média), 4,000 (Mediana), 766,977 (Desvio Padrão)
Valor Principal 7,269 (Média), 1,200 (Mediana), 273,970 (Desvio Padrão)
Valor da Multa 612 (Média), 0 (Mediana), 10,958 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

11/2024

dados_m_11 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "11/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_11 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 177,9231
Qtde de Parcelas Concedidas 29 (Média), 15 (Mediana), 31 (Desvio Padrão)
Valor Consolidado 50,152 (Média), 3,802 (Mediana), 708,996 (Desvio Padrão)
Valor Principal 21,398 (Média), 1,200 (Mediana), 1,166,204 (Desvio Padrão)
Valor da Multa 600 (Média), 0 (Mediana), 10,456 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

10/2024

dados_m_10 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "10/2024")

# Criar tabela descritiva
tabela_descritiva <- dados_m_10 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")
# Exibir tabela
tabela_descritiva
Characteristic N = 235,9421
Qtde de Parcelas Concedidas 34 (Média), 18 (Mediana), 37 (Desvio Padrão)
Valor Consolidado 71,411 (Média), 4,309 (Mediana), 727,832 (Desvio Padrão)
Valor Principal 9,671 (Média), 1,200 (Mediana), 150,847 (Desvio Padrão)
Valor da Multa 847 (Média), 0 (Mediana), 14,717 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

09/2024

dados_m_09 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "09/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_09 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 144,7141
Qtde de Parcelas Concedidas 33 (Média), 20 (Mediana), 34 (Desvio Padrão)
Valor Consolidado 56,614 (Média), 4,075 (Mediana), 471,066 (Desvio Padrão)
Valor Principal 8,018 (Média), 1,200 (Mediana), 169,214 (Desvio Padrão)
Valor da Multa 1,004 (Média), 0 (Mediana), 27,570 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

08/2024

dados_m_08 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "08/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_08 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 195,8081
Qtde de Parcelas Concedidas 36 (Média), 20 (Mediana), 38 (Desvio Padrão)
Valor Consolidado 81,412 (Média), 4,223 (Mediana), 566,559 (Desvio Padrão)
Valor Principal 13,920 (Média), 1,156 (Mediana), 389,607 (Desvio Padrão)
Valor da Multa 653 (Média), 0 (Mediana), 8,763 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

07/2024

dados_m_07 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "07/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_07 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 178,3431
Qtde de Parcelas Concedidas 34 (Média), 18 (Mediana), 35 (Desvio Padrão)
Valor Consolidado 75,309 (Média), 3,980 (Mediana), 773,619 (Desvio Padrão)
Valor Principal 8,940 (Média), 1,156 (Mediana), 271,507 (Desvio Padrão)
Valor da Multa 599 (Média), 0 (Mediana), 12,280 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

06/2024

dados_m_06 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "06/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_06 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 130,9511
Qtde de Parcelas Concedidas 34 (Média), 20 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 93,042 (Média), 5,182 (Mediana), 927,240 (Desvio Padrão)
Valor Principal 6,630 (Média), 1,156 (Mediana), 89,925 (Desvio Padrão)
Valor da Multa 735 (Média), 0 (Mediana), 13,006 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

05/2024

dados_m_05 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "05/2024")

# Criar tabela descritiva
tabela_descritiva <- dados_m_05 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 139,8771
Qtde de Parcelas Concedidas 30 (Média), 16 (Mediana), 30 (Desvio Padrão)
Valor Consolidado 30,425 (Média), 3,649 (Mediana), 174,910 (Desvio Padrão)
Valor Principal 3,800 (Média), 1,101 (Mediana), 54,304 (Desvio Padrão)
Valor da Multa 604 (Média), 0 (Mediana), 7,967 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

04/2024

dados_m_04 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "04/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_04 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 170,2771
Qtde de Parcelas Concedidas 34 (Média), 17 (Mediana), 36 (Desvio Padrão)
Valor Consolidado 92,017 (Média), 4,435 (Mediana), 689,123 (Desvio Padrão)
Valor Principal 9,790 (Média), 1,101 (Mediana), 237,734 (Desvio Padrão)
Valor da Multa 901 (Média), 0 (Mediana), 23,195 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

03/2024

dados_m_03 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "03/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_03 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 134,4941
Qtde de Parcelas Concedidas 31 (Média), 16 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 62,504 (Média), 3,558 (Mediana), 941,557 (Desvio Padrão)
Valor Principal 4,616 (Média), 1,101 (Mediana), 62,298 (Desvio Padrão)
Valor da Multa 1,007 (Média), 0 (Mediana), 21,732 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

02/2024

dados_m_02 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "02/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_02 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 121,9521
Qtde de Parcelas Concedidas 31 (Média), 16 (Mediana), 32 (Desvio Padrão)
Valor Consolidado 41,455 (Média), 3,676 (Mediana), 356,178 (Desvio Padrão)
Valor Principal 6,723 (Média), 1,156 (Mediana), 175,478 (Desvio Padrão)
Valor da Multa 729 (Média), 0 (Mediana), 14,786 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

01/2024

dados_m_01 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_01 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 462,7651
Qtde de Parcelas Concedidas 32 (Média), 21 (Mediana), 30 (Desvio Padrão)
Valor Consolidado 27,179 (Média), 4,244 (Mediana), 301,314 (Desvio Padrão)
Valor Principal 4,920 (Média), 1,452 (Mediana), 89,022 (Desvio Padrão)
Valor da Multa 487 (Média), 0 (Mediana), 11,358 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Distribuição dos Tipos de Negociação

Brasil

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(`Tipo de Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação
Distribuição
pessoa física
N = 703,095
1
pessoa jurídica
N = 1,581,001
1
Tipo de Negociação

    PARCELAMENTO CONVENCIONAL 537,041 (76%) 787,294 (50%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 0 (0%) 306 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 109 (<0.1%) 20 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 49 (<0.1%) 70 (<0.1%)
    TRANSACAO EDITAL PGDAU N 3 2023 - DEMAIS DEBITOS 0 (0%) 1 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 3 (<0.1%) 1,007 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 6 (<0.1%) 135 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 1 (<0.1%) 323 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 16 (<0.1%) 340 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 0 (0%) 168 (<0.1%)
    TRANSACAO NO CONTENCIOSO TRIBUTARIO DE RELEVANTE E DISSEMINADA CONTROVERSIA JURIDICA 0 (0%) 13 (<0.1%)
    TRANSACAO POR ADESAO - CONTENCIOSO TRIBUTARIO 0 (0%) 3 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 7,840 (1.1%) 84,456 (5.3%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 45,837 (6.5%) 52,966 (3.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 2 (<0.1%) 174,982 (11%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 19,519 (2.8%) 96,599 (6.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 70,900 (10%) 76,405 (4.8%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 9 (<0.1%) 188,246 (12%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 21,423 (3.0%) 98,442 (6.2%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 0 (0%) 12,531 (0.8%)
    TRANSACAO SOS RS 340 (<0.1%) 6,694 (0.4%)
1 n (%)

Região 1

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r1 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(`Tipo de Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação
Distribuição
pessoa física
N = 173,739
1
pessoa jurídica
N = 363,615
1
Tipo de Negociação

    PARCELAMENTO CONVENCIONAL 125,334 (72%) 175,719 (48%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 0 (0%) 54 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 10 (<0.1%) 1 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 1 (<0.1%) 1 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 1 (<0.1%) 91 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 0 (0%) 2 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 0 (0%) 1 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 1 (<0.1%) 1 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 2,190 (1.3%) 19,782 (5.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 14,120 (8.1%) 13,454 (3.7%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 0 (0%) 42,833 (12%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 5,155 (3.0%) 21,497 (5.9%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 20,676 (12%) 18,445 (5.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 1 (<0.1%) 44,827 (12%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 6,234 (3.6%) 23,719 (6.5%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 0 (0%) 2,973 (0.8%)
    TRANSACAO SOS RS 16 (<0.1%) 215 (<0.1%)
1 n (%)

Região 2

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r2 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(`Tipo de Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação
Distribuição
pessoa física
N = 83,438
1
pessoa jurídica
N = 155,812
1
Tipo de Negociação

    PARCELAMENTO CONVENCIONAL 65,209 (78%) 78,877 (51%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 0 (0%) 36 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 12 (<0.1%) 1 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 3 (<0.1%) 4 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 0 (0%) 102 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 0 (0%) 2 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 0 (0%) 9 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 0 (0%) 11 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 0 (0%) 2 (<0.1%)
    TRANSACAO NO CONTENCIOSO TRIBUTARIO DE RELEVANTE E DISSEMINADA CONTROVERSIA JURIDICA 0 (0%) 1 (<0.1%)
    TRANSACAO POR ADESAO - CONTENCIOSO TRIBUTARIO 0 (0%) 2 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 548 (0.7%) 6,806 (4.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 5,305 (6.4%) 4,735 (3.0%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 0 (0%) 17,372 (11%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 1,584 (1.9%) 8,336 (5.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 8,521 (10%) 7,188 (4.6%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 1 (<0.1%) 20,964 (13%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 2,251 (2.7%) 9,905 (6.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 0 (0%) 1,406 (0.9%)
    TRANSACAO SOS RS 4 (<0.1%) 53 (<0.1%)
1 n (%)

Região 3

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r3 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(`Tipo de Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação
Distribuição
pessoa física
N = 175,445
1
pessoa jurídica
N = 437,434
1
Tipo de Negociação

    PARCELAMENTO CONVENCIONAL 138,767 (79%) 228,580 (52%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 0 (0%) 85 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 64 (<0.1%) 13 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 28 (<0.1%) 37 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 2 (<0.1%) 375 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 4 (<0.1%) 53 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 0 (0%) 190 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 10 (<0.1%) 194 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 0 (0%) 93 (<0.1%)
    TRANSACAO NO CONTENCIOSO TRIBUTARIO DE RELEVANTE E DISSEMINADA CONTROVERSIA JURIDICA 0 (0%) 11 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 1,667 (1.0%) 21,273 (4.9%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 9,695 (5.5%) 14,407 (3.3%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 0 (0%) 44,159 (10%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 4,703 (2.7%) 26,629 (6.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 16,026 (9.1%) 22,292 (5.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 2 (<0.1%) 49,504 (11%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 4,465 (2.5%) 26,207 (6.0%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 0 (0%) 3,185 (0.7%)
    TRANSACAO SOS RS 12 (<0.1%) 147 (<0.1%)
1 n (%)

Região 4

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r4 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(`Tipo de Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação
Distribuição
pessoa física
N = 104,122
1
pessoa jurídica
N = 291,985
1
Tipo de Negociação

    PARCELAMENTO CONVENCIONAL 79,511 (76%) 138,847 (48%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 0 (0%) 79 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 7 (<0.1%) 1 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 12 (<0.1%) 23 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 0 (0%) 102 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 0 (0%) 33 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 1 (<0.1%) 80 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 1 (<0.1%) 89 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 0 (0%) 42 (<0.1%)
    TRANSACAO NO CONTENCIOSO TRIBUTARIO DE RELEVANTE E DISSEMINADA CONTROVERSIA JURIDICA 0 (0%) 1 (<0.1%)
    TRANSACAO POR ADESAO - CONTENCIOSO TRIBUTARIO 0 (0%) 1 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 1,453 (1.4%) 18,720 (6.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 6,114 (5.9%) 9,236 (3.2%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 2 (<0.1%) 33,861 (12%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 3,554 (3.4%) 19,851 (6.8%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 9,822 (9.4%) 12,741 (4.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 2 (<0.1%) 32,684 (11%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 3,346 (3.2%) 17,330 (5.9%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 0 (0%) 2,107 (0.7%)
    TRANSACAO SOS RS 297 (0.3%) 6,157 (2.1%)
1 n (%)

Região 5

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r5 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(`Tipo de Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação
Distribuição
pessoa física
N = 91,623
1
pessoa jurídica
N = 173,609
1
Tipo de Negociação

    PARCELAMENTO CONVENCIONAL 67,906 (74%) 80,995 (47%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 0 (0%) 33 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 15 (<0.1%) 3 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 3 (<0.1%) 4 (<0.1%)
    TRANSACAO EDITAL PGDAU N 3 2023 - DEMAIS DEBITOS 0 (0%) 1 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 0 (0%) 229 (0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 0 (0%) 26 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 0 (0%) 13 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 1 (<0.1%) 16 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 0 (0%) 8 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 1,005 (1.1%) 9,311 (5.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 7,137 (7.8%) 6,476 (3.7%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 0 (0%) 20,490 (12%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 2,152 (2.3%) 10,459 (6.0%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 10,224 (11%) 8,700 (5.0%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 3 (<0.1%) 23,104 (13%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 3,172 (3.5%) 12,015 (6.9%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 0 (0%) 1,660 (1.0%)
    TRANSACAO SOS RS 5 (<0.1%) 66 (<0.1%)
1 n (%)

Região 6

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r6 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(`Tipo de Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação
Distribuição
pessoa física
N = 74,728
1
pessoa jurídica
N = 158,546
1
Tipo de Negociação

    PARCELAMENTO CONVENCIONAL 60,314 (81%) 84,276 (53%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 0 (0%) 19 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 1 (<0.1%) 1 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 2 (<0.1%) 1 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 0 (0%) 108 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 2 (<0.1%) 19 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 0 (0%) 30 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 3 (<0.1%) 29 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 0 (0%) 23 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 977 (1.3%) 8,564 (5.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 3,466 (4.6%) 4,658 (2.9%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 0 (0%) 16,267 (10%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 2,371 (3.2%) 9,827 (6.2%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 5,631 (7.5%) 7,039 (4.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 0 (0%) 17,163 (11%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 1,955 (2.6%) 9,266 (5.8%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 0 (0%) 1,200 (0.8%)
    TRANSACAO SOS RS 6 (<0.1%) 56 (<0.1%)
1 n (%)

Análise Descritiva Feita por Tipo de Negociação: Todas Trasações (exclui-se os parcelamentos)

Brasil

#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 959,2071
Qtde de Parcelas Concedidas 46 (Média), 35 (Mediana), 41 (Desvio Padrão)
Valor Consolidado 106,195 (Média), 4,554 (Mediana), 928,305 (Desvio Padrão)
Valor Principal 17,328 (Média), 1,200 (Mediana), 603,338 (Desvio Padrão)
Valor da Multa 811 (Média), 0 (Mediana), 19,519 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Média das Variáveis Por Estado

# Criar tabela descritiva
tabela_descritiva <- dados_transacoes %>%
  select(
    `Qtde de Parcelas Concedidas`,
    `Valor Consolidado`, 
    `Valor do Principal`,
    `Valor da Multa`,
    `Sigla UF`
  ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              by = `Sigla UF`,
              statistic = list(all_continuous() ~ "{mean}"),
              missing = "no") %>%
              modify_header(label = "**Estado**") %>%
              modify_spanning_header(starts_with("stat_") ~ "**Média das Variáveis Por Estado (Apenas Trasações)**") %>%
              bold_labels()

# Exibir tabela
tabela_descritiva
Estado
Média das Variáveis Por Estado (Apenas Trasações)
AC
N = 2,899
1
AL
N = 12,942
1
AM
N = 10,999
1
AP
N = 3,468
1
BA
N = 54,814
1
CE
N = 36,311
1
DF
N = 24,879
1
ES
N = 17,513
1
GO
N = 39,062
1
MA
N = 21,591
1
MG
N = 88,660
1
MS
N = 16,193
1
MT
N = 22,527
1
PA
N = 21,909
1
PB
N = 13,561
1
PE
N = 29,310
1
PI
N = 14,562
1
PR
N = 69,235
1
RJ
N = 77,595
1
RN
N = 15,003
1
RO
N = 7,411
1
RR
N = 2,548
1
RS
N = 56,313
1
SC
N = 52,079
1
SE
N = 9,146
1
SP
N = 229,112
1
TO
N = 9,565
1
Qtde de Parcelas Concedidas 47 44 48 47 45 43 46 42 43 43 45 43 45 43 48 47 43 44 47 47 45 43 53 47 46 47 42
Valor Consolidado 96,604 91,969 179,441 101,727 75,869 73,616 156,826 100,448 102,903 286,569 61,207 538,515 66,218 60,008 59,878 104,065 35,032 146,612 94,006 39,156 45,846 130,806 75,626 69,548 41,293 121,318 106,265
Valor Principal 6,613 4,556 15,929 2,627 11,884 13,795 20,735 9,248 9,930 14,914 12,710 62,170 7,427 11,496 12,955 11,683 4,446 11,584 12,460 6,171 14,866 6,261 18,168 19,324 4,862 29,543 5,092
Valor da Multa 780 326 2,382 731 473 1,246 1,361 794 682 956 1,332 620 974 359 827 534 265 611 648 409 719 358 387 838 277 1,015 713
1 Mean

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 165,896
1
pessoa jurídica
N = 793,311
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CRED. DE PRECATORIO 0 (0%) 1 (<0.1%)
    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 41 (<0.1%)
    AGUARDANDO DEFERIMENTO 5 (<0.1%) 36 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 2,720 (1.6%) 10,898 (1.4%)
    CANCELADO 196 (0.1%) 1,220 (0.2%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 22,135 (13%) 128,806 (16%)
    CONTA COM IMPEDIMENTO NO DIVIDA 0 (0%) 1 (<0.1%)
    DEFERIDO E CONSOLIDADO 87,640 (53%) 400,640 (51%)
    EM FASE DE DEFESA PREVIA 1,960 (1.2%) 7,282 (0.9%)
    ENCERRADO POR LIQUIDACAO 21,518 (13%) 61,727 (7.8%)
    ENCERRADO POR RESCISAO 6,993 (4.2%) 48,399 (6.1%)
    EXCLUIDA EM FASE DE RECURSO 1,716 (1.0%) 5,714 (0.7%)
    EXCLUIDO PARA RESCISAO 1 (<0.1%) 26 (<0.1%)
    INDEFERIDO 6 (<0.1%) 43 (<0.1%)
    INDEFERIMENTO ELETRONICO 20,241 (12%) 122,696 (15%)
    LIQUIDADO 2 (<0.1%) 12 (<0.1%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 5 (<0.1%) 6 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 758 (0.5%) 5,762 (0.7%)
    REVISAO EM PROCESSAMENTO 0 (0%) 1 (<0.1%)
1 n (%)

Região 1

dados_transacoes_r1 <- dados_transacoes |> 
  filter(
    #!str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "1° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r1 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 236,2341
Qtde de Parcelas Concedidas 44 (Média), 35 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 107,424 (Média), 4,586 (Mediana), 883,395 (Desvio Padrão)
Valor Principal 11,592 (Média), 1,200 (Mediana), 246,244 (Desvio Padrão)
Valor da Multa 795 (Média), 0 (Mediana), 17,443 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_transacoes_r1 %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 48,394
1
pessoa jurídica
N = 187,840
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 5 (<0.1%)
    AGUARDANDO DEFERIMENTO 1 (<0.1%) 5 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 875 (1.8%) 2,740 (1.5%)
    CANCELADO 74 (0.2%) 290 (0.2%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 7,192 (15%) 33,555 (18%)
    DEFERIDO E CONSOLIDADO 24,427 (50%) 89,489 (48%)
    EM FASE DE DEFESA PREVIA 613 (1.3%) 1,786 (1.0%)
    ENCERRADO POR LIQUIDACAO 5,756 (12%) 14,129 (7.5%)
    ENCERRADO POR RESCISAO 2,250 (4.6%) 12,741 (6.8%)
    EXCLUIDA EM FASE DE RECURSO 558 (1.2%) 1,487 (0.8%)
    EXCLUIDO PARA RESCISAO 0 (0%) 12 (<0.1%)
    INDEFERIDO 2 (<0.1%) 26 (<0.1%)
    INDEFERIMENTO ELETRONICO 6,434 (13%) 30,135 (16%)
    LIQUIDADO 1 (<0.1%) 6 (<0.1%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 2 (<0.1%) 1 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 209 (0.4%) 1,433 (0.8%)
1 n (%)

Região 2

dados_transacoes_r2 <- dados_transacoes |> 
  filter(
    #!str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "2° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")




# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r2 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 95,1081
Qtde de Parcelas Concedidas 46 (Média), 36 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 95,156 (Média), 3,983 (Mediana), 637,365 (Desvio Padrão)
Valor Principal 11,893 (Média), 1,200 (Mediana), 163,275 (Desvio Padrão)
Valor da Multa 670 (Média), 0 (Mediana), 17,633 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_transacoes_r2 %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 18,214
1
pessoa jurídica
N = 76,894
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 7 (<0.1%)
    AGUARDANDO DEFERIMENTO 2 (<0.1%) 4 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 272 (1.5%) 1,015 (1.3%)
    CANCELADO 12 (<0.1%) 101 (0.1%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 2,225 (12%) 12,569 (16%)
    DEFERIDO E CONSOLIDADO 9,963 (55%) 39,808 (52%)
    EM FASE DE DEFESA PREVIA 188 (1.0%) 571 (0.7%)
    ENCERRADO POR LIQUIDACAO 2,403 (13%) 5,863 (7.6%)
    ENCERRADO POR RESCISAO 688 (3.8%) 3,960 (5.1%)
    EXCLUIDA EM FASE DE RECURSO 181 (1.0%) 504 (0.7%)
    EXCLUIDO PARA RESCISAO 0 (0%) 2 (<0.1%)
    INDEFERIDO 0 (0%) 1 (<0.1%)
    INDEFERIMENTO ELETRONICO 2,221 (12%) 12,028 (16%)
    LIQUIDADO 1 (<0.1%) 0 (0%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 0 (0%) 2 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 58 (0.3%) 459 (0.6%)
1 n (%)

Região 3

dados_transacoes_r3 <- dados_transacoes |> 
  filter(
   # !str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "3° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")




# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r3 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 245,3051
Qtde de Parcelas Concedidas 47 (Média), 36 (Mediana), 42 (Desvio Padrão)
Valor Consolidado 145,163 (Média), 4,202 (Mediana), 1,206,909 (Desvio Padrão)
Valor Principal 31,834 (Média), 1,211 (Mediana), 1,139,751 (Desvio Padrão)
Valor da Multa 985 (Média), 0 (Mediana), 23,785 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_transacoes_r3 %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 36,586
1
pessoa jurídica
N = 208,719
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CRED. DE PRECATORIO 0 (0%) 1 (<0.1%)
    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 17 (<0.1%)
    AGUARDANDO DEFERIMENTO 2 (<0.1%) 12 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 534 (1.5%) 2,639 (1.3%)
    CANCELADO 43 (0.1%) 316 (0.2%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 4,336 (12%) 30,578 (15%)
    CONTA COM IMPEDIMENTO NO DIVIDA 0 (0%) 1 (<0.1%)
    DEFERIDO E CONSOLIDADO 19,983 (55%) 109,136 (52%)
    EM FASE DE DEFESA PREVIA 388 (1.1%) 1,760 (0.8%)
    ENCERRADO POR LIQUIDACAO 5,209 (14%) 17,938 (8.6%)
    ENCERRADO POR RESCISAO 1,341 (3.7%) 11,396 (5.5%)
    EXCLUIDA EM FASE DE RECURSO 302 (0.8%) 1,270 (0.6%)
    EXCLUIDO PARA RESCISAO 1 (<0.1%) 5 (<0.1%)
    INDEFERIDO 3 (<0.1%) 6 (<0.1%)
    INDEFERIMENTO ELETRONICO 4,266 (12%) 32,250 (15%)
    LIQUIDADO 0 (0%) 2 (<0.1%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 3 (<0.1%) 2 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 175 (0.5%) 1,389 (0.7%)
    REVISAO EM PROCESSAMENTO 0 (0%) 1 (<0.1%)
1 n (%)

Região 4

dados_transacoes_r4 <- dados_transacoes |> 
  filter(
    #!str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "4° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")

# Calcular estatísticas adicionais
tabela_moda <- dados_transacoes_r4 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") 



# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r4 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 177,6271
Qtde de Parcelas Concedidas 48 (Média), 38 (Mediana), 42 (Desvio Padrão)
Valor Consolidado 100,483 (Média), 5,300 (Mediana), 1,029,465 (Desvio Padrão)
Valor Principal 15,651 (Média), 1,200 (Mediana), 238,150 (Desvio Padrão)
Valor da Multa 540 (Média), 0 (Mediana), 9,868 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_transacoes_r4 %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 24,592
1
pessoa jurídica
N = 153,035
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 1 (<0.1%)
    AGUARDANDO DEFERIMENTO 0 (0%) 6 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 380 (1.5%) 2,198 (1.4%)
    CANCELADO 35 (0.1%) 252 (0.2%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 3,184 (13%) 24,455 (16%)
    DEFERIDO E CONSOLIDADO 13,077 (53%) 77,700 (51%)
    EM FASE DE DEFESA PREVIA 296 (1.2%) 1,582 (1.0%)
    ENCERRADO POR LIQUIDACAO 3,424 (14%) 11,401 (7.4%)
    ENCERRADO POR RESCISAO 1,016 (4.1%) 10,274 (6.7%)
    EXCLUIDA EM FASE DE RECURSO 243 (1.0%) 1,278 (0.8%)
    EXCLUIDO PARA RESCISAO 0 (0%) 2 (<0.1%)
    INDEFERIDO 0 (0%) 3 (<0.1%)
    INDEFERIMENTO ELETRONICO 2,795 (11%) 22,601 (15%)
    LIQUIDADO 0 (0%) 1 (<0.1%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 0 (0%) 1 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 142 (0.6%) 1,280 (0.8%)
1 n (%)

Região 5

dados_transacoes_r5 <- dados_transacoes |> 
  filter(
   # !str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "5° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")

# Calcular estatísticas adicionais
tabela_moda <- dados_transacoes_r5 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") 



# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r5 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 116,2731
Qtde de Parcelas Concedidas 45 (Média), 36 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 74,880 (Média), 4,572 (Mediana), 648,041 (Desvio Padrão)
Valor Principal 10,430 (Média), 1,200 (Mediana), 210,379 (Desvio Padrão)
Valor da Multa 747 (Média), 0 (Mediana), 23,657 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_transacoes_r5 %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 23,699
1
pessoa jurídica
N = 92,574
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 7 (<0.1%)
    AGUARDANDO DEFERIMENTO 0 (0%) 4 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 419 (1.8%) 1,243 (1.3%)
    CANCELADO 16 (<0.1%) 139 (0.2%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 3,382 (14%) 15,892 (17%)
    DEFERIDO E CONSOLIDADO 12,374 (52%) 47,278 (51%)
    EM FASE DE DEFESA PREVIA 305 (1.3%) 889 (1.0%)
    ENCERRADO POR LIQUIDACAO 2,823 (12%) 6,391 (6.9%)
    ENCERRADO POR RESCISAO 1,142 (4.8%) 5,533 (6.0%)
    EXCLUIDA EM FASE DE RECURSO 293 (1.2%) 651 (0.7%)
    EXCLUIDO PARA RESCISAO 0 (0%) 4 (<0.1%)
    INDEFERIMENTO ELETRONICO 2,856 (12%) 13,905 (15%)
    LIQUIDADO 0 (0%) 1 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 89 (0.4%) 637 (0.7%)
1 n (%)

Região 6

dados_transacoes_r6 <- dados_transacoes |> 
  filter(
  #  !str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "6° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")

# Calcular estatísticas adicionais
tabela_moda <- dados_transacoes_r6 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") 



# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r6 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 88,6601
Qtde de Parcelas Concedidas 45 (Média), 35 (Mediana), 41 (Desvio Padrão)
Valor Consolidado 61,207 (Média), 4,355 (Mediana), 284,519 (Desvio Padrão)
Valor Principal 12,710 (Média), 1,200 (Mediana), 207,415 (Desvio Padrão)
Valor da Multa 1,332 (Média), 0 (Mediana), 25,110 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_transacoes_r6 %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 14,411
1
pessoa jurídica
N = 74,249
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 4 (<0.1%)
    AGUARDANDO DEFERIMENTO 0 (0%) 5 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 240 (1.7%) 1,063 (1.4%)
    CANCELADO 16 (0.1%) 122 (0.2%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 1,816 (13%) 11,757 (16%)
    DEFERIDO E CONSOLIDADO 7,816 (54%) 37,229 (50%)
    EM FASE DE DEFESA PREVIA 170 (1.2%) 694 (0.9%)
    ENCERRADO POR LIQUIDACAO 1,903 (13%) 6,005 (8.1%)
    ENCERRADO POR RESCISAO 556 (3.9%) 4,495 (6.1%)
    EXCLUIDA EM FASE DE RECURSO 139 (1.0%) 524 (0.7%)
    EXCLUIDO PARA RESCISAO 0 (0%) 1 (<0.1%)
    INDEFERIDO 1 (<0.1%) 7 (<0.1%)
    INDEFERIMENTO ELETRONICO 1,669 (12%) 11,777 (16%)
    LIQUIDADO 0 (0%) 2 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 85 (0.6%) 564 (0.8%)
1 n (%)

Análise Descritiva Feita por Mês: Todas Transações (exclui-se os parcelamentos)

12/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "12/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 66,8551
Qtde de Parcelas Concedidas 45 (Média), 35 (Mediana), 39 (Desvio Padrão)
Valor Consolidado 110,887 (Média), 4,059 (Mediana), 1,121,880 (Desvio Padrão)
Valor Principal 6,756 (Média), 1,200 (Mediana), 78,607 (Desvio Padrão)
Valor da Multa 445 (Média), 0 (Mediana), 7,459 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 10,928
1
pessoa jurídica
N = 55,927
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 5 (<0.1%)
    AGUARDANDO DEFERIMENTO 2 (<0.1%) 2 (<0.1%)
    CANCELADO 190 (1.7%) 1,174 (2.1%)
    DEFERIDO E CONSOLIDADO 8,466 (77%) 42,470 (76%)
    ENCERRADO POR LIQUIDACAO 914 (8.4%) 2,502 (4.5%)
    ENCERRADO POR RESCISAO 9 (<0.1%) 41 (<0.1%)
    INDEFERIMENTO ELETRONICO 1,347 (12%) 9,733 (17%)
1 n (%)

11/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "11/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 65,9181
Qtde de Parcelas Concedidas 44 (Média), 35 (Mediana), 39 (Desvio Padrão)
Valor Consolidado 77,406 (Média), 3,903 (Mediana), 1,041,232 (Desvio Padrão)
Valor Principal 44,893 (Média), 1,200 (Mediana), 1,868,780 (Desvio Padrão)
Valor da Multa 387 (Média), 0 (Mediana), 6,600 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 10,503
1
pessoa jurídica
N = 55,415
1
Situação da Negociação

    AGUARDANDO DEFERIMENTO 1 (<0.1%) 1 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 16 (0.2%) 71 (0.1%)
    CANCELADO 1 (<0.1%) 0 (0%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 260 (2.5%) 1,537 (2.8%)
    DEFERIDO E CONSOLIDADO 7,856 (75%) 40,960 (74%)
    ENCERRADO POR LIQUIDACAO 936 (8.9%) 2,849 (5.1%)
    ENCERRADO POR RESCISAO 25 (0.2%) 77 (0.1%)
    INDEFERIDO 1 (<0.1%) 0 (0%)
    INDEFERIMENTO ELETRONICO 1,353 (13%) 9,702 (18%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 54 (0.5%) 218 (0.4%)
1 n (%)

10/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "10/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 116,3511
Qtde de Parcelas Concedidas 48 (Média), 36 (Mediana), 44 (Desvio Padrão)
Valor Consolidado 122,050 (Média), 4,558 (Mediana), 1,026,908 (Desvio Padrão)
Valor Principal 19,709 (Média), 1,400 (Mediana), 242,282 (Desvio Padrão)
Valor da Multa 894 (Média), 0 (Mediana), 15,786 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 17,079
1
pessoa jurídica
N = 99,272
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 6 (<0.1%)
    AGUARDANDO DEFERIMENTO 2 (<0.1%) 26 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 53 (0.3%) 302 (0.3%)
    CANCELADO 3 (<0.1%) 40 (<0.1%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 886 (5.2%) 6,353 (6.4%)
    DEFERIDO E CONSOLIDADO 12,358 (72%) 72,779 (73%)
    EM FASE DE DEFESA PREVIA 24 (0.1%) 117 (0.1%)
    ENCERRADO POR LIQUIDACAO 1,662 (9.7%) 5,634 (5.7%)
    ENCERRADO POR RESCISAO 91 (0.5%) 513 (0.5%)
    EXCLUIDO PARA RESCISAO 0 (0%) 2 (<0.1%)
    INDEFERIDO 1 (<0.1%) 0 (0%)
    INDEFERIMENTO ELETRONICO 1,914 (11%) 13,215 (13%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 1 (<0.1%) 1 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 84 (0.5%) 284 (0.3%)
1 n (%)

09/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "09/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 66,0141
Qtde de Parcelas Concedidas 45 (Média), 35 (Mediana), 41 (Desvio Padrão)
Valor Consolidado 94,351 (Média), 4,071 (Mediana), 679,593 (Desvio Padrão)
Valor Principal 13,754 (Média), 1,200 (Mediana), 245,417 (Desvio Padrão)
Valor da Multa 1,418 (Média), 0 (Mediana), 37,929 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 12,965
1
pessoa jurídica
N = 53,049
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 1 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 562 (4.3%) 1,741 (3.3%)
    CANCELADO 0 (0%) 1 (<0.1%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 822 (6.3%) 4,576 (8.6%)
    DEFERIDO E CONSOLIDADO 8,286 (64%) 33,125 (62%)
    EM FASE DE DEFESA PREVIA 30 (0.2%) 102 (0.2%)
    ENCERRADO POR LIQUIDACAO 1,408 (11%) 3,626 (6.8%)
    ENCERRADO POR RESCISAO 92 (0.7%) 453 (0.9%)
    EXCLUIDA EM FASE DE RECURSO 12 (<0.1%) 42 (<0.1%)
    EXCLUIDO PARA RESCISAO 0 (0%) 1 (<0.1%)
    INDEFERIDO 0 (0%) 4 (<0.1%)
    INDEFERIMENTO ELETRONICO 1,695 (13%) 9,249 (17%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 58 (0.4%) 128 (0.2%)
1 n (%)

08/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "08/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 97,6351
Qtde de Parcelas Concedidas 51 (Média), 42 (Mediana), 45 (Desvio Padrão)
Valor Consolidado 141,254 (Média), 6,019 (Mediana), 781,685 (Desvio Padrão)
Valor Principal 27,475 (Média), 1,200 (Mediana), 596,458 (Desvio Padrão)
Valor da Multa 747 (Média), 0 (Mediana), 10,877 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 17,858
1
pessoa jurídica
N = 79,777
1
Situação da Negociação

    AGUARDANDO DEFERIMENTO 0 (0%) 3 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 284 (1.6%) 1,211 (1.5%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 2,551 (14%) 10,127 (13%)
    DEFERIDO E CONSOLIDADO 9,405 (53%) 46,546 (58%)
    EM FASE DE DEFESA PREVIA 666 (3.7%) 2,025 (2.5%)
    ENCERRADO POR LIQUIDACAO 2,067 (12%) 5,350 (6.7%)
    ENCERRADO POR RESCISAO 183 (1.0%) 1,335 (1.7%)
    EXCLUIDA EM FASE DE RECURSO 38 (0.2%) 101 (0.1%)
    EXCLUIDO PARA RESCISAO 0 (0%) 1 (<0.1%)
    INDEFERIDO 0 (0%) 11 (<0.1%)
    INDEFERIMENTO ELETRONICO 2,185 (12%) 12,246 (15%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 0 (0%) 1 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 479 (2.7%) 819 (1.0%)
    REVISAO EM PROCESSAMENTO 0 (0%) 1 (<0.1%)
1 n (%)

07/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "07/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 80,3341
Qtde de Parcelas Concedidas 47 (Média), 36 (Mediana), 42 (Desvio Padrão)
Valor Consolidado 130,151 (Média), 3,920 (Mediana), 1,083,642 (Desvio Padrão)
Valor Principal 19,619 (Média), 1,200 (Mediana), 451,959 (Desvio Padrão)
Valor da Multa 703 (Média), 0 (Mediana), 15,249 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 16,789
1
pessoa jurídica
N = 63,545
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 11 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 300 (1.8%) 1,066 (1.7%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 2,952 (18%) 10,915 (17%)
    DEFERIDO E CONSOLIDADO 8,424 (50%) 33,418 (53%)
    EM FASE DE DEFESA PREVIA 290 (1.7%) 855 (1.3%)
    ENCERRADO POR LIQUIDACAO 2,075 (12%) 5,043 (7.9%)
    ENCERRADO POR RESCISAO 236 (1.4%) 1,071 (1.7%)
    EXCLUIDA EM FASE DE RECURSO 685 (4.1%) 1,566 (2.5%)
    EXCLUIDO PARA RESCISAO 0 (0%) 1 (<0.1%)
    INDEFERIDO 0 (0%) 10 (<0.1%)
    INDEFERIMENTO ELETRONICO 1,815 (11%) 9,266 (15%)
    LIQUIDADO 1 (<0.1%) 2 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 11 (<0.1%) 321 (0.5%)
1 n (%)

06/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "06/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 58,5071
Qtde de Parcelas Concedidas 45 (Média), 36 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 171,806 (Média), 6,547 (Mediana), 1,380,558 (Desvio Padrão)
Valor Principal 10,458 (Média), 1,200 (Mediana), 105,720 (Desvio Padrão)
Valor da Multa 849 (Média), 0 (Mediana), 16,237 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 14,981
1
pessoa jurídica
N = 43,526
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CRED. DE PRECATORIO 0 (0%) 1 (<0.1%)
    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 5 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 236 (1.6%) 533 (1.2%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 2,495 (17%) 8,769 (20%)
    DEFERIDO E CONSOLIDADO 7,219 (48%) 20,297 (47%)
    EM FASE DE DEFESA PREVIA 201 (1.3%) 475 (1.1%)
    ENCERRADO POR LIQUIDACAO 1,925 (13%) 3,609 (8.3%)
    ENCERRADO POR RESCISAO 859 (5.7%) 2,048 (4.7%)
    EXCLUIDA EM FASE DE RECURSO 209 (1.4%) 444 (1.0%)
    EXCLUIDO PARA RESCISAO 0 (0%) 1 (<0.1%)
    INDEFERIDO 0 (0%) 9 (<0.1%)
    INDEFERIMENTO ELETRONICO 1,833 (12%) 7,293 (17%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 0 (0%) 1 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 4 (<0.1%) 41 (<0.1%)
1 n (%)

05/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "05/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 40,8451
Qtde de Parcelas Concedidas 45 (Média), 36 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 53,454 (Média), 4,978 (Mediana), 193,730 (Desvio Padrão)
Valor Principal 8,771 (Média), 1,155 (Mediana), 113,344 (Desvio Padrão)
Valor da Multa 696 (Média), 0 (Mediana), 9,289 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 11,107
1
pessoa jurídica
N = 29,738
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 4 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 260 (2.3%) 571 (1.9%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 2,008 (18%) 6,455 (22%)
    DEFERIDO E CONSOLIDADO 4,854 (44%) 13,032 (44%)
    EM FASE DE DEFESA PREVIA 145 (1.3%) 300 (1.0%)
    ENCERRADO POR LIQUIDACAO 1,499 (13%) 2,314 (7.8%)
    ENCERRADO POR RESCISAO 779 (7.0%) 1,591 (5.4%)
    EXCLUIDA EM FASE DE RECURSO 147 (1.3%) 311 (1.0%)
    INDEFERIDO 3 (<0.1%) 3 (<0.1%)
    INDEFERIMENTO ELETRONICO 1,409 (13%) 5,126 (17%)
    LIQUIDADO 0 (0%) 2 (<0.1%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 1 (<0.1%) 0 (0%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 2 (<0.1%) 29 (<0.1%)
1 n (%)

04/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "04/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 80,5051
Qtde de Parcelas Concedidas 48 (Média), 36 (Mediana), 43 (Desvio Padrão)
Valor Consolidado 165,788 (Média), 7,035 (Mediana), 964,830 (Desvio Padrão)
Valor Principal 23,242 (Média), 1,101 (Mediana), 398,486 (Desvio Padrão)
Valor da Multa 1,243 (Média), 0 (Mediana), 31,926 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 17,622
1
pessoa jurídica
N = 62,883
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 2 (<0.1%)
    AGUARDANDO DEFERIMENTO 0 (0%) 2 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 311 (1.8%) 814 (1.3%)
    CANCELADO 1 (<0.1%) 2 (<0.1%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 2,997 (17%) 10,721 (17%)
    DEFERIDO E CONSOLIDADO 7,989 (45%) 30,010 (48%)
    EM FASE DE DEFESA PREVIA 156 (0.9%) 636 (1.0%)
    ENCERRADO POR LIQUIDACAO 2,593 (15%) 5,780 (9.2%)
    ENCERRADO POR RESCISAO 1,260 (7.2%) 4,728 (7.5%)
    EXCLUIDA EM FASE DE RECURSO 189 (1.1%) 644 (1.0%)
    EXCLUIDO PARA RESCISAO 1 (<0.1%) 2 (<0.1%)
    INDEFERIDO 1 (<0.1%) 1 (<0.1%)
    INDEFERIMENTO ELETRONICO 2,118 (12%) 9,477 (15%)
    LIQUIDADO 0 (0%) 1 (<0.1%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 2 (<0.1%) 0 (0%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 4 (<0.1%) 63 (0.1%)
1 n (%)

03/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "03/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 59,0751
Qtde de Parcelas Concedidas 45 (Média), 35 (Mediana), 41 (Desvio Padrão)
Valor Consolidado 116,922 (Média), 4,322 (Mediana), 1,423,402 (Desvio Padrão)
Valor Principal 8,726 (Média), 1,156 (Mediana), 104,267 (Desvio Padrão)
Valor da Multa 1,017 (Média), 0 (Mediana), 22,700 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 12,992
1
pessoa jurídica
N = 46,083
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 3 (<0.1%)
    AGUARDANDO DEFERIMENTO 0 (0%) 2 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 172 (1.3%) 645 (1.4%)
    CANCELADO 0 (0%) 2 (<0.1%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 2,278 (18%) 8,270 (18%)
    DEFERIDO E CONSOLIDADO 5,445 (42%) 19,042 (41%)
    EM FASE DE DEFESA PREVIA 182 (1.4%) 522 (1.1%)
    ENCERRADO POR LIQUIDACAO 2,004 (15%) 4,969 (11%)
    ENCERRADO POR RESCISAO 1,025 (7.9%) 3,990 (8.7%)
    EXCLUIDA EM FASE DE RECURSO 108 (0.8%) 488 (1.1%)
    EXCLUIDO PARA RESCISAO 0 (0%) 1 (<0.1%)
    INDEFERIDO 0 (0%) 3 (<0.1%)
    INDEFERIMENTO ELETRONICO 1,777 (14%) 8,093 (18%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 0 (0%) 1 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 1 (<0.1%) 52 (0.1%)
1 n (%)

02/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "02/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 52,6111
Qtde de Parcelas Concedidas 43 (Média), 35 (Mediana), 39 (Desvio Padrão)
Valor Consolidado 69,294 (Média), 4,226 (Mediana), 509,376 (Desvio Padrão)
Valor Principal 14,188 (Média), 1,200 (Mediana), 295,560 (Desvio Padrão)
Valor da Multa 952 (Média), 0 (Mediana), 20,746 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 10,972
1
pessoa jurídica
N = 41,639
1
Situação da Negociação

    AGUARDANDO CONFIRMACAO DE CREDITOS 0 (0%) 4 (<0.1%)
    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 130 (1.2%) 466 (1.1%)
    CANCELADO 1 (<0.1%) 1 (<0.1%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 2,057 (19%) 8,482 (20%)
    DEFERIDO E CONSOLIDADO 4,321 (39%) 15,409 (37%)
    EM FASE DE DEFESA PREVIA 128 (1.2%) 509 (1.2%)
    ENCERRADO POR LIQUIDACAO 1,819 (17%) 4,581 (11%)
    ENCERRADO POR RESCISAO 974 (8.9%) 4,566 (11%)
    EXCLUIDA EM FASE DE RECURSO 169 (1.5%) 433 (1.0%)
    EXCLUIDO PARA RESCISAO 0 (0%) 2 (<0.1%)
    INDEFERIMENTO ELETRONICO 1,371 (12%) 7,158 (17%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 1 (<0.1%) 0 (0%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 1 (<0.1%) 28 (<0.1%)
1 n (%)

01/2024

dados_m_transacoes <- dados_transacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 174,5571
Qtde de Parcelas Concedidas 44 (Média), 35 (Mediana), 38 (Desvio Padrão)
Valor Consolidado 49,114 (Média), 4,208 (Mediana), 494,058 (Desvio Padrão)
Valor Principal 7,937 (Média), 1,450 (Mediana), 147,729 (Desvio Padrão)
Valor da Multa 616 (Média), 0 (Mediana), 17,363 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Situação da Negociação.

# Criar tabela descritiva
tabela <- dados_m_transacoes %>%
  select(`Situação da Negociação`,
         tipo_pessoa) %>%
  tbl_summary(
    by = tipo_pessoa,
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Situação da Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Situação da Negociação
Distribuição
pessoa física
N = 12,100
1
pessoa jurídica
N = 162,457
1
Situação da Negociação

    AGUARDANDO NOTIFICACAO PARA DEFESA PREVIA 396 (3.3%) 3,478 (2.1%)
    CANCELADO POR FALTA DE PGTO DE PEDAGIO 2,829 (23%) 52,601 (32%)
    CONTA COM IMPEDIMENTO NO DIVIDA 0 (0%) 1 (<0.1%)
    DEFERIDO E CONSOLIDADO 3,017 (25%) 33,552 (21%)
    EM FASE DE DEFESA PREVIA 138 (1.1%) 1,741 (1.1%)
    ENCERRADO POR LIQUIDACAO 2,616 (22%) 15,470 (9.5%)
    ENCERRADO POR RESCISAO 1,460 (12%) 27,986 (17%)
    EXCLUIDA EM FASE DE RECURSO 159 (1.3%) 1,685 (1.0%)
    EXCLUIDO PARA RESCISAO 0 (0%) 15 (<0.1%)
    INDEFERIDO 0 (0%) 2 (<0.1%)
    INDEFERIMENTO ELETRONICO 1,424 (12%) 22,138 (14%)
    LIQUIDADO 1 (<0.1%) 7 (<0.1%)
    PENDENTE DE REVISAO POR ALTERACAO NA ORIGEM 0 (0%) 2 (<0.1%)
    REJEITADO POR FALTA DE PGTO DE PEDAGIO 60 (0.5%) 3,779 (2.3%)
1 n (%)